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0 


بسم الله والحمد لله والصلاة والسلام علي اشرف الأنبياء والمرسلين سيدنا محمد 


يشهد العالم خلال السنوات الأخيرة ثورة في المعلومات والبرمجيات والتي 
أحدثت تغيرا كبيرا في جميع مجالات الحياة المختلفة وبالتالي أصبح الحاسوب 
الصديق الأقرب إلى الإنسان نظرا لما يقدمه من حلول للمشاكل في مختلف مجالات 
الحياة العلمية منها والعملية مما تطلب تطوير كافة الأساليب التي تمكن الإنسان من 


استخدام الحاسوب والتفاهم معه وتوجيه لأداء الوظائف المختلفة. 
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لغات البرمجة 


هي اللغات التي يستطيع الإنسان من خلالها التفاهم مع الحاسوب وهي عبارة 
عن تعليمات تكتب وفق مجموعة من الأساسيات والقواعد والقيود وتكون مكتوبة 
بلغات قريبة من اللغة الطبيعية ( لغة الإنسان ) مثل لغة السي والبيسك والباسكال 
وكل من هذه اللغات تحتاج إلى مترجم لكي يتم ترجمتها إلى لغة الآلة لكي يستطيع 
الحاسوب فهمها وتعتبر لغة الباسكال احدي أهم هذه اللغات التي تستخدم بشكل 


واسع في مختلف الميادين العلمية والعملية. 
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لغة الباسكال ,17/456041 


سميت بهذا الاسم نسبة إلى العالم الفرنسي الرياضي 2235021 813156 » 
وصممت هذه اللغة من قبل العالم السويسري 71111215 777115 » وطرحت عام 
1» وقد انتشرت هذه اللغة بشكل واسع خصوصا في الجامعات والمعاهد 
خصوصا العربية منها » وتمتاز بكونها تجمع بين السهولة والقوة واختصار 
الكلمات فيها إلى حد كبيرء وبنيتها التركيبية وقوة البرامج الفرعية» وقد ظهرت نسخ 
جديدة من لغة 295021 امتازت بتلافي العيوب في النسخ السابقة» ويعد 10160” 
51 من شركة 80113001 من الإصدارات المستخدمة بكثرة بين الطلبة 
والمتخصصين في مجال البرمجة» وتنافس هذه اللغة لغة 282510 في كثرة 
المستخدمين لتوافر كثير من المميزات فيهاء وتستخدم هذه اللغة من قبل الطلاب 
والمهندسين حيث تعتبر احدي أهم اللغات المستخدمة في تعلم مفهوم البرمجة 
والدخول إلى عالم لغات البرمجة» كما تستخدم في قطاع الأعمال التجارية وان كان 


ذلك بدرجة اقل. 
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الملخص 


يقدم هذا الكتاب جهداً متواضعا بذل لطرح مجموعة متنوعة من التمارين 
المحلولة في البرمجة بلغة الباسكال والتي يتجاوز عددها الثمانين تمرين تحمل أفكارا 
متعددة بحيث تقدم الفائدة لطلبة الجامعات والمعاهدة وتساعدهم في بداية مشوارهم 
في عالم البرمجة. 

يقدم هذا الجزء من الكتاب تمارين علي البرمجة بلغة الباسكال تشمل كل من 
جمل الإدخال والإخراج وجملة التخصيص وكذلك الجمل الشرطية وجمل التكرار 
المختلفة وكذلك يقدم مجموعة متنوعة من التمارين علي المصفوفات ذات البعد 
الواحد وذات البعدين علي أن يظم الجزء الثاني تمارين علي كل من البرامج الفرعية 


والسجلات والملفات. 
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1. اكتب برنامج يقوم بقراءة 3 أعداد وطباعة المتوسط الحسابي لها. 
Program Exe1(1,0);‏ 
Var‏ 
S,x,y:integer;‏ 
begin‏ 
Writeln (Enter the first num `;‏ 
Readln (s);‏ 
Writeln (Enter the second num ");‏ 
readin(x);‏ 
Writeln (Enter the 3th num ');‏ 
readln(y);‏ 
Writeln((x+y+s) /3:5:0);‏ 
readln;‏ 
End.‏ 


2. اكتب برنامج يقوم بقراءة طول مستطيل 1 وعرضه ۷ تم يقوم بحساب مساحة المستطيل 
من خلال A=1*W‏ 

PROGRAM Exe2(1,0); 

VAR A,W,L: INTEGER; 

BEGIN 

WRITELNC(CENTER ÛL’; 

READLN(L); 

WRITELN(CENTER W)’; 

READLN(W); 

A:=L*W; 

WRITELN(AREA=',A); 

READLN; 

END. 


Program Exe3(1,0); 
Var n,x:integer; 
Y:real; 

Begin 

Read(k,n); 
Y:=exp(n*In(x)); 
Writeln(y:5:0); 
End. 
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4. اكتب برنامج يقوم بحساب قيمة © من المعادلة (84*8(/)4+78)-© علما بان قيمة 
A=6‏ و .B=3‏ 
PROGRAM USO);‏ 
VAR a,b:INTEGER;‏ 


c:=(A*b)/(A+b); 
writeln('c=',c:6:2); 
READLN; 

END. 


5. اكتب برنامج لإيجاد مساحة دائرة. 
Program Exe5(1,0);‏ 
Var‏ 
R: integer;‏ 
Area: real;‏ 
Const pi=3.14;‏ 
Begin‏ 
writeln (Enter circle radius’);‏ 
Readln();‏ 
Area: =sqr(r)*pi;‏ 
writeln (area= ',area:5:1);‏ 
end.‏ 


6. اكتب برنامج يقوم بقراءة 4 أعداد ويقوم بإيجاد حاصل جمعها وضربها. 

PROGRAM Exe6(,O0); 

VAR a,b,c,d,sum,mul:INTEGER; 

BEGIN 

writeln )' Enter 4 numbers’); 

readlin(a,b,c,d); 

sum:=a+b+c+d; 

mul:=a*b*c*d; 

writeln(sum=',sum:6); 

writeln(mul=',mul:12); 

READLN; 

END. 
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7. اكتب برنامج يقوم بقراءة عدد صحيح ويطبع الكلمة رعرع إذا كان العدد زوجي والكلمة 
ص إذا كان العدد فردي. 


PROGRAM Exe7(,O); 
VAR a:INTEGER; 
BEGIN 

writeln ( Enter number’); 
readln(a); 

if a mod 2 = 0 then 
writeln (Even'"); 

if a mod 2 <> 0 then 
writeln(odd'); 

READLN; 


8. اكتب برنامج يقوم باستقبال قيمة المتغير × ثم يقوم بحساب قيمة كل من 7,9 حيث 
Y=x +2x‏ 
Z= 1x +4x+1-x‏ 
إذا كانت × اكبر من 0 
Y=x+ x7 43‏ 
Z= x” +1-2x‏ 
إذا كانت × اقل من الصفر 
أما أذا كانت 0=× يطبع كلمة ERROR‏ . 
program ExeS(l,0);‏ 
var x:Integer;‏ 
y,z:real;‏ 
begin‏ 
readln(x);‏ 
if x>0 then‏ 
begin‏ 
y:=sqI(X)+2*x;‏ 
z:=Sqrt(x)+4*x+1-x;‏ 
writeln( Y=',y:8:4,Z=':4,2:7:4;‏ 
end‏ 
if x<0 then‏ 
begin‏ 
y:=x+sqr(x)+3;‏ 
Z:=Sqr(xX)+1-2*x;‏ 
writeln( Y=',y:8:4,Z=':4,Z:8:4);‏ 
end;‏ 
if x=0 then‏ 
writeln('Error');‏ 
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readln; 
end. 


9. اكتب برنامج يقوم باستقبال اسم وليكن 4117760 ويقوم بطباعته بحيث يكون كل حرف في 
سطر.أما إذا كان الاسم المدخل غير ذلك فيقوم بطباعة الكلمة :80 بنفس الطريقة. 
program Exe9(l,o);‏ 
var name:string;‏ 
begin‏ 
readIn(name);‏ 
if name= 'Ahmed' then‏ 
begin‏ 
writeln(A’);‏ 
writeln(h');‏ 
writeln(m');‏ 
writeln('e');‏ 
writeln('d');‏ 
end‏ 
else‏ 
begin‏ 
writeln(E’);‏ 
writeln('r');‏ 
writeln('r') ;‏ 
writeln(o') ;‏ 
writeln(r') ;‏ 
end;‏ 
readln;‏ 
end.‏ 


0.اكتب برنامج يقوم بقراءة اسم الموظف وراتبه الأساسي ثم يحسب قيمة الضريبة وصافي 
المرتب حيث أن : 
صافي المرتب = الراتب الأساسي 
إذا كان الراتب الأساسي اقل من 500 ( ليس هناك ضريبة ) 
صافي المرتب - الراتب الأساسي - قيمة الضريبة 
بحيث تكون قيمة الضريبة 5 % من الراتب الأساسي 
ثم يقوم بطباعة اسم الموظف وصافي المرتب. 
program 820113‏ 
var name:string;‏ 
sal,net,tax:real;‏ 
begin‏ 
writeln('Enter name ');‏ 
readin (name);‏ 
writeln( Enter salary ');‏ 
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readln(sal); 
if sal<=500 then 
begin 
net:=sal; 
writeln('name=',name:6,'net=':8,net:6:3); 
end 
else 
begin 
tax:=sal*0.05; 
net:=sal-tax; 
writeln(name=',name:6,'net=':8,net:6:3); 
end; 
readln; 
end. 
1.باستخدام المؤثرات المنطقية مع جملة 1۴ اكتب برنامج يقوم بإدخال اسم الطالب ودرجته‎ 
كعدد صحيح ) في مادة أساسيات البرمجة ويطبع اسم الطالب و ا‎ ( 
100 إذا كانت الدرجة من 85 إلى‎ EXCELLENT كلمة‎ 
84 كلمة 000010 1778127 إذا كانت الدرجة من 75 إلى‎ 


كلمة 6001 إذا كانت الدرجة من 65 إلى 74 
كلمة 5 إذا كانت الدرجة من 50 إلى 64 
كلمة WEEK‏ إذا كانت الدرجة من 0 إلى 49 


وكلمة ERROR‏ اذا كان العدد المدخل غير ذلك. 
program 2111‏ 
var name:string;‏ 
grade:integer;‏ 
begin‏ 
writeln(Enter student name’);‏ 
readIin(name);‏ 
writeln(Enter student grade’);‏ 
readln(grade);‏ 
if (grade>=85)and(grade<100) then‏ 
writeln(name,' Excellent':12);‏ 
if (grade>=75)and(grade<85 then‏ 
writeln(name,' Very good':12);‏ 
if (grade>=65)and(grade<75) then‏ 
writeln(name,'Good':12);‏ 
if (grade>=50)and(grade<65) then‏ 
writeln(name,'Pass':12);‏ 
if (grade<50) then‏ 
writeln(name,'week':12);‏ 
if (grade>100) and (grade<0) then‏ 
writeln ("Error’);‏ 
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readln; end. 


2.اكتب برنامج يقوم باستقبال ثلاثة أعداد ويطبع أكبرهما. 
program EXE12(i,o);‏ 
var x1,x2,x3:integer;‏ 
begin‏ 
writeln (“enter the first number’);‏ 
readln(x1);‏ 
writeln (“enter the second number’);‏ 
readin(x2);‏ 
writeln (“enter the third number’);‏ 
readln(x3);‏ 
if (x1>x2) and (x1>x3) then‏ 
writeln (X1=',x1:4,'grater than all':17);‏ 
if (x2>x1) and (x2>x3) then‏ 
writeln (X2=',x2:4,'grater than all':17)‏ 
else‏ 
writeln(X3=',x<3:4,'grater than all':17);‏ 
readln;‏ 
end.‏ 


3. اكتب برنامج يقوم بقراءة قيمة 8 بحيث تكون ( 1 أو 2 أو 3 أو 4 ) ثم يحسب قيمة © 


: حسب الآاتى‎ 
إذا كانت 8 تساوي 1 أو 2 فان‎ 
C= 82+87 
إذا كانت قيمة 8تساوي 3 أو 4 فان‎ 
C=B+1+2B 
program Exe13(i,o); 
var b:integer; 
c:real; 
begin 
readln(b); 
if (b=1)or(b=2) then 
begin 


c:=sqr(b)+3*1n(b); 
writeln(c=',c:7:4); 
end 

else 

writeln('error’); 

if (b=3)or(b=4) then 
begin 
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c:=b+1+2*b; 
writeln(c=',c:7:4); 
end 
else 
writeln('error’); 
readln; 
end. 


14.باستخدام جملة 08517 اكتب برنامج يقوم بإدخال اسم الطالب ودرجته ( كعدد صحيح ) 
في مادة أساسيات البرمجة ويطبع اسم الطالب و 0 

كلمة EXCELLENT‏ إذا كانت الدرجة من 85 إلى 100 

كلمة 772172703000010 إذا كانت الدرجة من 75 إلى 84 


كلمة 000 إذا كانت الدرجة من 65 إلى 74 
كلمة 5 إذا كانت الدرجة من 50 إلى 64 
كلمة WEEK‏ !ذا كانت الدرجة من 0 إلى 49 


وكلمة ERROR‏ !ذا كان العدد المدخل غير ذلك. 
program Exe14 (1,0);‏ 
var name:string;‏ 
grade:integer;‏ 
begin‏ 
WRITELN(ENTER STUDENT NAME);‏ 
readlin(name);‏ 
WRITELN(ENTER GRADE);‏ 
readIn(grade);‏ 
case grade of‏ 
85..100:writeln('name:',name,' ', 'Grade=',grade,' ',' EXCELLENT”);‏ 
75..84:writeln(name:',name,' ', 'Grade=',grade,' '"VEARY GOOD) ;‏ 
65..74:writeln('name:',name,' ', 'Grade=',grade,' ', GOOD) ;‏ 
50..64:writeln('name:',name,' ', 'Grade=',grade,' ',PASS') ;‏ 
01..49:writeln(name:',name,' ', 'Grade=',grade,' ' WEEK) ;‏ 
else‏ 
writeln (OUT OF RANGE `);‏ 
END;‏ 
readln;‏ 
end.‏ 
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5 اكتب برنامج يقوم باستقبال احد الحروف التالية ( /8,0,938,آ,1 ) ( حروف كبيرة) ثم 


R۸ اذا كان الحرف المدخل هو‎ 00 
إذا کان الحرف المدخل هو الآ‎ YELLOW 
1] إذا كان الحرف المدخل هو‎ BLUE 
) إذا كان الحرف المدخل هو‎ UREEN 
۷W إذا كان الحرف المدخل هو‎ 515 
إذا كان الحرف المدخل غير دلك من الحروف السابقة.‎ 001 O۴ RANGE وعبارة‎ 
program Exe15 )1,0(: 
var CH:CHAR; 
begin 
WRITELNCENTER CHAR (R or لآ‎ or B or 6G or W)’); 
readIn(CB); 
case CH of 
'R':writeln(RED'); 
'Y':writeln( YELLOW’); 
'B':writeln((BLUE’; 
'G':writeln(GREEN'); 
'W':writeln(WHITE') 
else 
writeln (OUT OF RANG’); 
END; 
readln; 
end. 


EEE EF 


6 اكتب برنامج يقوم بقراءة عددين ( 75,97 ) وكذلك رمز لعملية حسابية (+,-,*,/) ويقوم 
بتطبيق العملية علي العددين ويطبع النتيجة. 
program Exe16 )1,0(:‏ 
var CH:CHAR;‏ 
X,Y:REAL;‏ 
begin‏ 
WRITELN(ENTER TWO NUMBERS);‏ 
READLNKX,Y);‏ 
WRITELN(ENTER CHAR (+,-,*,0;‏ 
readin(CB);‏ 
case CH of‏ 
'+':writeln(X+Y:7:3);‏ 
'-':writeln(X-Y:7:3);‏ 
'*""writeln(X*Y:7:3);‏ 
'/':writeln(X/Y:7:3)‏ 
else‏ 
writeln (OUT OF RANG `;‏ 
END;‏ 
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readln; 
end. 


. ۴0۴ 7.اكتب برنامج يقوم بطباعة الأعداد من 1 إلى 100 باستخدام جملة‎ 
program exe17(i,o); 
var 1: integer; 
begin 
for i := 1 to 100 do 
writeln(i); 
readln; 
end. 


.۴0۴ 8.اكتب برنامج يقوم بطباعة الأعداد من 100 إلى 1 باستخدام جملة‎ 
program exe18(i,o); 
var 1: integer; 
begin 
for i := 100 downto 1 do 
writeln(); 
readln; 
end. 


.100 باستخدام جملة ۴0۸ اكتب برنامج يقوم بطباعة الأعداد الزوجية من 1 إلى‎ .9 
program Exe19(i,o); 
var i: integer; 
begin 
for i := 1 to 100 do 
if (i mod 2 =0 ) then 
writei:4); 
readln; 
end. 


0.باستخدام جملة ۴0۸ اكتب برنامج يقوم بطباعة الأعداد الفردية المحصورة بين 20 و 
200 
program exe20(i,o);‏ 
var i: integer;‏ 
begin‏ 
for i :=20 to 200 do‏ 
if (i mod 2 <>0 ) then‏ 
writei:4);‏ 
readln;‏ 
end.‏ 
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1. اكتب برنامج يقوم باستقبال 10 أعداد ثم يقوم بحساب اكبر قيمة وطباعتها باستخدام جملة 
FOR‏ 
program exe21(i,o);‏ 
var 1,max,x: integer;‏ 
begin‏ 
max:=0;‏ 
to 10 do‏ 1 =: 1011 
readln(x);‏ 
if (x>max ) then‏ 
max:=x;‏ 
write(max:4);‏ 
readln;‏ 
end.‏ 


2. اكتب برنامج يقوم باستقبال اسماء ودرجات 10 طلاب في مادة اساسيات البرمجة ويطبع 
اسم الطالب المتحصل علي اعلي درجة. 

program exe17(i,o); 

var 1,max,grade: integer; 

name,n:string; 

begin 

max:=0; 

for i := 1 to 10 do 

begin 

writeln ( 'Enter student name’); 

readin(name); 

writeln ( 'Enter student grade’); 

readln (grade); 

if (grade>max ) then 

begin 

max:=grade; 

n:=name; 

end; 

end; 

write(max:4,n:8); 

readln; 

end. 


3.اكتب برنامج لإدخال 20 رقم وإيجاد مجموع وعدد الأعداد الزوجية ومجموع وعدد 
الأعداد الفردية 
program exe23(i,o);‏ 


كتاب يحتوي على أمثلة محلولة في البرمجة بلغة الباسكال معد الكتاب : سالم الدروقي 


var 1,num,o,e,sum1,sum2: integer; 

begin 

for 1 := 1 to 20 do 

begin 

readin(num); 

if (num mod 2= 0) then 

begin 

e:=e+1; 

sum1:=sum1+num; 

end 

else 

begin 

0:=0+1; 

sum2:=sum2+num; 

end; end; 

writeln("The even numbers',e:4,'sum=':8,sum1:7); 
writeln('The odd numbers',0:4,'sum=':8,sum2:7); 
readln; 

end. 


4.اكتب برنامج لإيجاد مجموع الأعداد من 1 إلى 10 باستخدام جملة +1001 علي أن يتم 
إدخالها عن طريق لوحة المفاتيح 
program exe24(i,o);‏ 
var 1,sum,X: integer;‏ 
begin‏ 
sum:=0;‏ 
for i := 1 to 10 do‏ 
begin‏ 
readln(x);‏ 
sum:= sum+x;‏ 
end;‏ 
write(sum:4);‏ 
readln;‏ 
end.‏ 


5,. اكتب برنامج لا يجاد الأعداد الأولية للعدد 75 وطباعتها 
program exe25(i,o);‏ 
var 1: integer;‏ 


كتاب يحتوي على أمثلة محلولة في البرمجة بلغة الباسكال معد الكتاب : سالم الدروقي 


begin 

for i := 1 to 75 do 

if (75 mod i = 0 ) then 
writeln('primary=":4,1:4); 
readln; 

end. 


WHILE اكتب برنامج لإيجاد مجموع الأعداد من 1 إلى 10 باستخدام جملة‎ .6 
program nl(i,o); 
var 1,sum: integer; 
begin 
151: 
while i<=10 do 
begin 
sum:=sum+i; 
1:=1+1; 
end; 
writeln(sum); 
readin; 


7. باستخدام جملة 77711111 اكتب برنامج يقوم بطباعة الأعداد الزوجية المحصورة بين 1 
و 100 

program n27(i,o); 

var 1,sum: integer; 

begin 

151; 

while i<=100 do 

begin 

if i mod 2 = 0 then 

writei:4); 

1:=1+1; 

end; 


readln; 
end. 


8.- باستخدام جملة W11٤‏ اكتب برنامج يقوم بطباعة الأعداد الفردية المحصورة بين 
0 و 200 
program nl(i,o);‏ 
var 1,sum: integer;‏ 


كتاب يحتوي على أمثلة محلولة في البرمجة بلغة الباسكال مُعد الكتاب : سالم الدروقي 


begin 

1:=20; 

while i<=200 do 
begin 

if 1 mod 2 <> 0 then 
writei:4); 

1:=1+1; 

end; 

readln; 

end. 


9, اكتب برنامج يقوم باستقبال 10 أعداد ثم يقوم بحساب اكبر قيمة وطباعتها باستخدام جملة 
WHILE‏ 

program nl(i,o); 

var 1,num,max: integer; 

begin 

151; 

max:=0; 

while 1<=10 do 

begin 

readIin(num); 

11 num >max then 

max:= num; 

1:=1+1; 

end; 

writeln( 'max=',max); 

readln; 

end. 


WHILE اكتب برنامج يقوم بطباعة الأعداد من 1 إلى 100 باستخدام جملة‎ -.0 
program n30(i,o); 
var 1: integer; 
begin 
=1: 
while i<=100 do 
begin 
writeln(i); 
1:=1+1; 
end; 
readln; 
end. 


كتاب يحتوي على أمثلة محلولة في البرمجة بلغة الباسكال مُعد الكتاب : سالم الدروقي 


1 اكتب برنامج باستخدام جملة ۷111۴٤‏ يقوم بإدخال 10 أعداد ثم يطبع المتوسط لهذه 
الاعداد. 

program n1l(i,o); 
var 1,num,sum: integer; 
avg:real; 
begin 
1-1 
while 1-10 do 
begin 
readln(num); 
sum:=sum+num; 
1:=1+1; 
end; 
avg:=sum/1; 

writeln(average=',avg:4:2); 
readln; 

end. 


2. اكتب برنامج لإيجاد مجموع الأعداد من 1 إلى 10 باستخدام جملڈ RE_PE_AT‏ 


program nl(i,o); 

var 1,sum: integer; 

begin 

1:=1; 

repeat 
sum:=sum+1; 

1:=1+1; 

until (1>10); 
writeln(sum=',sum:4); 

readln; 

end. 


1 اكتب برنامج يقوم بطباعة الأعداد الزوجية المحصورة بين‎ ۸٤۲8۸۲ باستخدام جملة‎ .3 
100 و‎ 
program nl(i,o); 
var 1: integer; 
begin 
1:21: 
repeat 
if i mod 2 = 0 then 
writeln (i); 
1:=1+1; 
until (1> 100); 


كتاب يحتوي على أمثلة محلولة في البرمجة بلغة الباسكال مُعد الكتاب : سالم الدروقي 


readln; 
end. 


4. باستخدام جملة "11121581 اكتب برنامج يقوم بطباعة الأعداد الفردية المحصورة بين 
0 و 200 
program nl(i,o);‏ 
var 1: integer;‏ 
begin‏ 
;1:=20 
repeat‏ 
if i mod 2 <> 0 then‏ 
write ([:4);‏ 
;1:=1+1 
until (1>200);‏ 
readln;‏ 
end.‏ 
5 اكتب برنامج يقوم باستقبال 5 أعداد ثم يقوم بحساب اكبر قيمة وطباعتها باستخدام جملة 
REPEAT‏ 
program nl(i,o);‏ 
var i,x,max: integer;‏ 
begin‏ 
1-1 
max:=0;‏ 
repeat‏ 
readin (Kx);‏ 
if x > max then‏ 
max:=x;‏ 
;1:=1+1 
until (>5 );‏ 
writeln(max);‏ 
readln;‏ 
end.‏ 


6 اكتب برنامج يقوم بطباعة الأعداد من 1 إلى 100 باستخدام جملة R_PE_AT‏ 
program nl(i,o);‏ 
var 1: integer;‏ 
begin‏ 


كتاب يحتوي على أمثلة محلولة في البرمجة بلغة الباسكال مُعد الكتاب : سالم الدروقي 


1-1 

repeat 
write(1:4); 
1i=i+1; 

until (i1> 100 ); 
readln; 

end. 


7.كتب برنامج لطباعة الشكل التالي باستخدام جملة إ0؟ 
PROGRAM FC,O);‏ 
VAR I.J:INTEGER;‏ 
BEGIN‏ 
For 1:= 1 To 10 DO‏ 
BEGIN‏ 
For j := 1 To 110‏ 
WRITE(*':2);‏ 
WRITELN;‏ 
END;‏ 
READLN;‏ 
END.‏ 


“ا * 1# #* * * *# 0#« 
K‏ #* #* *« * # ا« 0#« 
# # #*« * # *# 0#« 
* *« * « «# 0#« 


PROGRAM FC,O); 
VAR IJ:INTEGER; 
For i := 1 To 10 DO 
BEGIN 

For j :=1 To 10-1 DO 
WRITEC(C*’; 
WRITELN; 

END; 

READLN; 

END. 


KX * 
KX نم‎ 
XX * 
XX * 
## * 
## * 
XX * 
KX * 
## 
0 





كتاب يحتوي على أمثلة محلولة في البرمجة بلغة الباسكال معد الكتاب : سالم الدروقي 


۴0۲ اكتب برنامج لطباعة جدول الضرب من 1 إلى 10 باستخدام جملة‎ .9 
PROGRAM F(,O); 
VAR ILJ:INTEGER; 
BEGIN 
For i := 1 To 10 DO 
BEGIN 
For j :=1 To 10 DO 
WRITEG*:4); 
WRITELN; 
END; 
READLN; 
END. 


1 
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3 
4 
5 
6 
7 
8 
9 
a 





PROGRAM F(,O); 
VAR I,J:INTEGER; 
BEGIN 
1= 
while (i<=10) do 
BEGIN 
j:=1; 
while (j<=1) do 
begin 
WRITE(*':4); 
j:i=j+1; 
END; 
writeln; 
1:-1+1: 
end; 
READLN; 
END. 


3¥ 
3¥ تنا 
3 €¥ تن 
3¥ ته 3¥ 3¥ 
3 ته ته تن 
3 3¥ 3€ ¥ 
3¥ تمأ 3€ تن 
3¥ تم 3¥ تنا 
3 تم دهز تن 
3 تم تم تن 





كتاب يحتوي على أمثلة محلولة في البرمجة بلغة الباسكال معد الكتاب : سالم الدروقي 


1116 اكتب برنامج لطباعة الشكل التالي باستخدام جملة‎ 1 
PROGRAM F(,O); 
VAR I1,J:INTEGER; 
BEGIN 
1-1 
while )1>-10( do 
BEGIN 
ji=1; 
while (j<=10-i) do 
begin 
WRITE(*':4); 
j:i=j+1; 
END; 
writeln; 
1:-1+1: 
end; 
READLN; 
END. 


770116 اكتب برنامج لطباعة جدول الضرب من 1 إلى 10 باستخدام جملة‎ 2 
PROGRAM F(,O); 
VAR I,J:INTEGER; 
BEGIN 
=1 
while (i<=10) do 
BEGIN 
j:i=1; 
while (j<=10) do 
begin 
WRITEG*:4; 
j:=j+1; 
END; 
writeln; 
1:=1+1; 
end; 
READLN; 
END. 


* 
8 
* 
8 
* 
ت 
* 
* 


3 3¥ 3€ 3¥ 3¥ ¥ ¥ ¥ ¥ تن 
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كتاب يحتوي على أمثلة محلولة في البرمجة بلغة الباسكال معد الكتاب : سالم الدروقي 


3 اكتب برنامج لطباعة الشكل التالي باستخدام جملة أهعمع] 
PROGRAM FC,O);‏ 
VAR IJ:INTEGER;‏ 
BEGIN‏ 
;131 
repeat‏ 
1-:[ 
repeat‏ 
WRITE(*':4);‏ 
Jj:=j+1;‏ 
until (j>1);‏ 
writeln;‏ 
;1:=1+1 
untili> 10);‏ 
READLN;‏ 
END.‏ 


4 اكتب برنامج لطباعة الشكل التالي باستخدام جملة 4معمع1 


## 0 # * # # 1# ا‎ 1# 
KHKHHKHHKHKHKHK HK K 
KHKHHKKHHKHKK K 
KFHRKHKRKK F# 





PROGRAM F(,O); 
VAR I,J:INTEGER; 
BEGIN 
1=: 
repeat 
[:-1 
repeat 
WRITE(*':4); 
j:i=j+1; 
until (j> 10-1); 
writeln; 
1:=1+1; 
untili> 10); 
READLN; 
END. 


FEF FEF FEF ¥ ¥‏ ام EH EFE‏ تن 
HF HF ¥ ¥‏ ا EB HEH HEHE‏ 
HE HF FHF HEF ¥ ¥ ¥ ¥‏ 


PROGRAM 11,0: 
VAR I1,J:INTEGER; 
BEGIN 

1-1 

repeat 

Ji=1; 


کا وح ری حر کی O‏ ّ- ونج ما ك 


5 





كتاب يحتوي على أمثلة محلولة في البرمجة بلغة الباسكال مُعد الكتاب : سالم الدروقي 


repeat 
WRITEG*:4; 
j:i=j+1; 
until j>10); 
writeln; 
1:=1+1; 
untili> 10); 
READLN; 
END. 


6 باستخدام احدي جمل التكرار اكتب برنامج يقوم بطباعة الأرقام من 1 الى ۸ حيث يتم 
إدخال قيمة م عن طريق المستخدم. 
program exe46(i,o);‏ 
var 1,2: integer;‏ 
begin‏ 
readln(n);‏ 
ton do‏ 1 -: 1011 
writei:4);‏ 
readln;‏ 


7 اكتب برنامج لإيجاد مجموع 10 أعداد يتم إدخالها عن طريق لوحة المفاتيح ويتوقف 
البرنامج في حال إدخال قيمة سالبة. 


program exe47(i,o); 
var 1,x,sum: integer; 
begin 

for i := 1 to 10 do 
begin 

readin (x); 

if x < 0 then 

exit 

else 

511111:-511111+ 7 

end; 
writeln(sum=',sum); 
readln; 

end. 


8 کتب برنامج يقوم باستقبال 5 أعداد وطباعة كلمة ممع:27 إذا كان العدد زوجي وكلمة 
40 إذا كان العدد فردي (باستخدام جملتي )ز×٤‏ 06010) 
PROGRAM exe48(1,0);‏ 
VAR a,1:INTEGER;‏ 


كتاب يحتوي على أمثلة محلولة في البرمجة بلغة الباسكال 


معد الكتاب : سالم الدروقي 


label n; 

BEGIN 

n: writeln ( Enter number’); 
readln(a); 

if a mod 2 = 0 then 

writeln (Even'”); 

if a mod 2 <> 0 then 
writeln(odd'); 

1:=1+1; 

if i=5 then 


9. اكتب برنامج لطباعة الشكل التالي باستخدام فكرة الحلقات المتداخلة : 


fl 
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0 
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fl 
fl 
0 
جد‎ 


525 55 5 إلا‎ 5 552 
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PROGRAM F(,O); 
VAR1I,J:INTEGER; 
BEGIN 
For 1 := 1 To 8 DO 
BEGIN 
[:-1 
repeat 
if i = j then write(*':2) 
else 
WRITECA':2); 
J:=+1; 
untilj >8); 
WRITELN; 
END; 
READIN; 
END. 


50. باستخدام جملة إن] المتداخلة اكتب برنامج لطباعة الشكل التالي : 
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A 
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8 
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PROGRAM F(,O); 
VAR I1,J:INTEGER; 
BEGIN 

writeln; 
For 1 := 1 To 8 DO 


DODD DDD 


كتاب يحتوي على أمثلة محلولة في البرمجة بلغة الباسكال معد الكتاب : سالم الدروقي 


BEGIN 
For j :- 1 To 8 DO 
begin 
if i = j then write(*':2) 
else 
WRITECA!:2); 
end; 
WRITELN; 
END; 

READLN; 

END. 


1 اكتب برنامج لقراءة مصفوفة أحادية البعد مكونة من 10 عناصر من النوع الحقيقي 


program Arr(i,o); 

var A:Array[1..50] of real; 
i:integer; 

begin 

for 1:= 1 to 50 do 
readlin(A[I]); 

for i := 1 to 50 do 

write(A [1]:8:2); 

readln; 

end. 


2 اكتب برنامج لقراءة مصفوفة ذات بعد واحد مكونة من 5 عناصر من النوع الرمزي 


program Arr(i,o); 

var num:Array[1..5] of char; 
i,n:integer; 

begin 

for 1:- 1 to 5 do 

readin(num[I]); 

for i := 1 to 5 do 

write(num[1]:4); 

readln; 

end. 


كتاب يحتوي على أمثلة محلولة في البرمجة بلغة الباسكال معد الكتاب : سالم الدروقي 


3 اكتب برنامج لقراءة مصفوفة أحادية البعد مكونة من 4 عنصر من النوع الصحيح 
وطباعة عناصرها بشكل عكسي في عمود واحد . 
program Arr(i,o);‏ 


var s:Array[1..24] of integer; 
i,n:integer; 


begin 
for i:= 1 to 24 do 
read(S[I}); 


for i := 24 downto 1 do 
writeln(S[1]:4); 
readln; 


4 اكتب برنامج لقراءة مصفوفة أحادية البعد مكونة من 5 من العناصر من نوع السلسة 
وطباعة تامسر الكل مكيدي 


program Arrûi,o); 

var s:Array[1..5] of string; 
i:integer; 

begin 

for i:= 1 to 5 do 

readln(S[I1]); 

for i := 5 downto 1 do 

writeln(S[i]:4); 

readln; 

end. 


5 اكتب برنامج لقراءة مصفوفة أحادية البعد مكونة من 20 عنصر وطباعة مجموع 
عناصرها 


program Arr(i,o); 
var s:Array[1..20] of integer; 
i,sum:integer; 
begin 
for 1:= 1 to 20 do 
:([5]1)صللوع1‎ 
sum:=0; 
for 1:= 1 to 20 do 
sum := sum+S[1]; 
for i := 1 to 20 do 
write(S[1]:4); 


كتاب يحتوي على أمثلة محلولة في البرمجة بلغة الباسكال معد الكتاب : سالم الدروقي 


writeln('sum=':8,sum:5); 
readln; 


6 اكتب برنامج لقراءة مصفوفة أحادية البعد مكونة من 10 عناصر وطباعتها تصاعديا 


program Arr(i,o); 
var R:Array[1..10] of integer; 
i,t,j:integer; 


begin 
for i:= 1 to 10 do 
readlin(R[I}]); 


for i:= 1 to 10-1 do 
for j:= 1+1 to 10 do 
if (R[j]<R[i]) then 
begin 
t:=R[i]; 
RIi]:=RIj]: 
R[j]:=t; 
end; 
for i := 1 to 10 do 
write(R[1]:4); 
readln; 
end. 


7.اكتب برنامج يقوم بقراءة مصفوفة مكونة من N‏ عدد صحيح ثم يقوم بطباعتها بحيث 
تكون مرتبة ترتيبا تصاعديا في عمود واحد. 


program Arr(,o); 
var R:Array[1..50] of integer; 
i,t,j,n:integer; 
begin 
writeln(' Enter N'); 
readin (N); 
for i:= 1 to n do 
readlin(R[I]); 
for 1:- 1 to n-1 do 
for j:= 1+1 to n do 
if (R[j]<R[i]) then 
begin 
t:=R[il; 


كتاب يحتوي على أمثلة محلولة في البرمجة بلغة الباسكال مُعد الكتاب : سالم الدروقي 


لاك :زنع 
R[j]:=t;‏ 
end;‏ 
for i := 1 to n do‏ 
writeln(R([1]:4);‏ 
readln;‏ 
end.‏ 


8 اكتب برنامج لقراءة مصفوفة أحادية البعد مكونة من 12 عنصر من النوع الصحيح 
وطباعة اكبر عنصر فيها . 
program Arr(i,o);‏ 


var A:Array[1..12] of integer; 
max:integer; 


i:integer; 
begin 
for i:= 1 to 12 do 
readln(A[I]); 
max:=0; 
for i:= 1 to 12 do 
begin 
if A[i] > max then 
max:= A[i]; 
end; 
write(max=':6,max:4); 
readln; 
end. 


9.اكتب برنامج لقراءة مصفوفة ذات بعد واحد مكونة من 12 عنصر وطباعتها في صف 


program Arr(i,o); 

var A:Array[1..12] of real; 
max:real; 
i:integer; 

begin 

for 1:= 1 to 12 do 

readln(A[I]); 

for 1:- 1 to 12 do 

begin 

if A[i1] > max then 

max:= A[i]; 


كتاب يحتوي على أمثلة محلولة في البرمجة بلغة الباسكال معد الكتاب : سالم الدروقي 


end; 

for i:= 1 to 12 do 
write(A[1]:5:0); 
write(max=':8,max:4:0); 
readln; 

end. 


0.اكتب برنامج لقراءة مصفوفة ذات بعد واحد مكونة من 12 عنصر وطباعتها في صف 
واحد وكذلك طباعة اصغر عنصر فيها 


program Arr(i,o); 
var A:Array[1..12] of integer; 
min:real; 
i:integer; 
begin 
for 1:= 1 to 12 do 
readln(A[I]); 
min:=A[1]; 
for 1:= 1 to 12 do 
begin 
if A[i1] < min then 
min:= Ali]; 
end; 
for 1:= 1 to 12 do 
write(A[1]:5); 
write(min=':8,min:4:0); 
readln; 
end. 


61 اكتب برنامج لقراءة مصفوفة احادية البعد مكونة من 20 عنصر من النوع الصحيح و 
طباعة اصغر واكبر قيمة 


program Arr(i,o); 

var A:Array[1..20] of integer; 
min, max:integer; 
i:integer; 

begin 

for 1:- 1 to 20 do 

readln(A[I]); 

max:=A[1]; min:=A[1]; 

for 1:= 2 to 20 do 

begin 


كتاب يحتوي على أمثلة محلولة في البرمجة بلغة الباسكال مُعد الكتاب : سالم الدروقي 


if A[i1] > max then 


max:=A[i]; 

if A[i1] < min then 
min:= Ali]; 

end; 


write(min=':8,min:4); 
write(max=':8,max:4); 
readln; 

end. 


2.اكتب برنامج لقراءة مصفوفة ذات بعد واحد مكونة من 12 عناصر من النوع الصحيح 
وطباعة الفرق بين اكبر واصغر فيمه فيها 
:(1,0)ككث program‏ 


var A:Array[1..12] of integer; 
min, max:integer; 


i:integer; 
begin 
for i:= 1 to 12 do 
readln(A[I]); 
max:=A[1]; 
min:=A[1]; 
for i:= 2 to 12 do 
begin 
if A[1] > max then 
max:=A[i]; 
if A[1] < min then 
min:= Ali]; 
end; 
write(dif=':5,max-min:4); 
readln; 
end. 


3.كتب برنامج يقوم بتدوين بيانات مخزن مواد غذائية به ۾ صنف بحيث يقوم بقراءة 
اسم الصنف وسعره ثم طباعة سعر اغلي صنف ثم اسمه . 


program Arr(i,o); 
label t; 
var name:Array[1..150] of string; 
price:array[1..150] of integer; 
1,1113711 :integer; 
nam,x:string; 
begin 


كتاب يحتوي على أمثلة محلولة في البرمجة بلغة الباسكال معد الكتاب : سالم الدروقي 


t: writeln ) ' Enter number of items it must be >150'( 
readln (n); 
if n > 150 then 
begin 
writeln (Error... please write number less than 150°); 
goto t; 
end 
else 
for 1:= 1 to n do 
BEGIN 
writeln( Enter ITEM',' ',I1, NAME); 
readIin(name([1I]); 
writeln(' Enter ITEM',' ' ,1,' PRICE); 
readIn(price[1]); 
end; 
max:=price[1]; x:=name[1]; 
for i := 1 to n do 
if Price[i1] > max then 
begin 
max:=Price[1]; 
x:=name([1] 
end; 
writeln(max_price=':3,max:2); 
writeln('name=',x:1); 
readln; 


64. اكتب برامج لقراءة مصفوفة أحادية البعد مكونة من 7 عناصر من النوع الصحيح ثم 
إيجاد الأتي : 
1- مجموع وعدد العناصر الموجبة 
2- مجموع وعدد العاصر السالبة 
Program exe(i,o);‏ 


var a:array[1..7] of integer; 
i, suml , sum2 , x, y:integer; 


begin 
for i := 1 to 7 do 
readln(A[1]); 


for i := 1 to 7 do 
begin 
if A[i] > 0 then 
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begin 
sum1l:=sum1+A [1]; 
Xx:=x+1; 

end 

else 

begin 
sum2:=sum2+A [1]; 
y:=y+1; 

end; 

end; 

writeln( '+',sum1:5 ,x:4); 
writeln( '-',ٻsum2:5,y:4);‎ 
readln; 


5.كتب برنامج لقراءة مصفوفتين كل منهما ذات بعد واحد ومكونة من 7 عناصر من النوع 
الصحيح ثم إيجاد حاصل جمعهما في مصفوفة ثالثة. 


Program exe(i,o); 
var a:array[1..7] of integer; 
b:array[1..7] of integer; 
c:array[1..7] of integer; 
i :integer; 
begin 
writeln ) ' Enter Array a `; 
for i := 1 to 7 do 
begin 
readln(a[i]); 
end; 
writeln ) ' Enter Array b `); 
for i := 1 to 7 do 
begin 
readlIn(b[i]); 
end; 
for i := 1 to 7 do 
begin 
clil:=a[i]+b[i]; 
end; 
for i := 1 to 7 do 
writeln( c[i]:4); 
readln; 
end. 


كتاب يحتوي على أمثلة محلولة في البرمجة بلغة الباسكال معد الكتاب : سالم الدروقي 


6 اكتب برنامج لقراءة مصفوفة ثنائية البعد مكونة من25 عنصر من النوع الصحيح 5*5 


program 211)1,0(: 

var A1:array[1..5,1..5] of integer; 
i,j: integer; 

begin 

for i := 1 to 5 do 

for j:= 1 to 5 do 


begin 
read(A1[1,j]); 
end; 

for i := 1 to 5 do 
begin 


for j:= 1 to 5 do 
write(A1 [1,j]1:5); 
writeln; 

end; 

readln; 

end. 


7 كتب برنامج لقراءة مصفوفة ثنائية البعد مكونة من 12 عنصر من النوع الصحيح 
مرتبة في 4 صفوف و 3 اعمدة 3*4 وطباعة عناصرها بشكل عكسي 


program arrûi,o); 

var A1:array[1..4,1..3] of integer; 
1,j: integer; 

begin 

for i := 1 to 4 do 

for j:= 1 to 3 do 


begin 

read(A1[1,j]); 

end; 

for i := 4 downto 1 do 
begin 


for j:= 3 downto 1 do 
write(A1 [1,j1:7); 
writeln; 

end; 

readln; 

end. 


كتاب يحتوي على أمثلة محلولة في البرمجة بلغة الباسكال معد الكتاب : سالم الدروقي 


8 اكتب برنامج لقراءة مصفوفة ثنائية البعد تتكون من 12 عنصر من النوع الحقيقي 3×4 
وطباعة مجموع عناصرها. 


program arrûi,o); 

var A1:array[1..4,1..3] of integer ; 
1,j,sum : integer; 

begin 

for 1 := 1 to 4 do 

for j:= 1 to 3 do 


begin 
read(A1[1,j]); 
end; 

for i := 1 to 4 do 
begin 


for j:= 1 to 3 do 
sum:=sum+A 1 [i,j]; 

end; 

for i := 1 to 4 do 

begin 

for j:= 1 to 3 do 

write(A1 [i,j]:4); 

writeln; 

end; 

writeln(sum:=',sum); 

readln; 

end. 


9 اكتب برنامج لقراءة مصفوفة ثنائية البعد مكونة من 30 عنصر 6×5 وطباعة اكبر عنصر 


program arr(i,0o); 
var A1:array[1..5,1..6] of integer ; 
i,j,max : integer; 
begin 

for i := 1 to 5 do 
for j:= 1 to 6 do 
begin 
read(A1[1,j]); 
end; 
max:=A1[1,1]; 
for i := 1 to 5 do 
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begin 
for j:= 1 to 6 do 
if A1[i,j]>max then 
max:=A1[1,j]; 
end; 
for i := 1 to 5 do 
begin 
for j:= 1 to 6 do 
write(A 1 [1,j]:4); 
writeln; 
end; 
writeln(max:=',max); 
readln; 
end. 


0.اكتب برنامج لقراءة مصفوفة ثنائية البعد 1*١‏ ومن ثم إيجاد المتوسط الحسابي لمجموع 
عناضرها: 


program arr(i,o); 

var A1:array[1..50,1..50] of integer ; 
1,j,sum,m,n : integer; 

avg:real; 

begin 

writeln(' Enter number of rows’) ; 
readin(m); 

writeln('Enter number of columns’) ; 
readln(n); 

writeln( Enter Array Elements’) ; 
for i := 1 to m do 

for j:= 1 to n do 


begin 
read(A1[1,j]); 
end; 

for i := 1 to m do 
begin 


for j:= 1 to n do 
sum:=sum+A 1 [i,j]; 

end; 

avg:=sum/(m*n); 

for i := 1 to m do 
begin 

for j:= 1 to n do 
write(A1 [i,j]:4); 
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writeln; 

end; 
writeln(sum=',sum); 
writeln('avg=',avg:4:2); 
readln; 

end. 


. 1.اكتب برنامج لقراءة مصفوفة ثنائية البعد 4×3 وطباعة اصغر عنصر فيها‎ 
program arr(i,o); 
var A1:array[1..3,1..4] of integer ; 
1,j,min : integer; 
begin 
for i := 1 to 3 do 
for j:= 1 to 4 do 
begin 
read(A1[1,j]); 
end; 
min:=A1[1,1]; 


for i := 1 to 3 do 


begin 
for j:= 1 to 4 do 
if A1[i,j]<min then 
min:=A1 [i,j]; 
end; 
for i := 1 to 3 do 
begin 


for j:= 1 to 4 do 
write(A 1 [1,j]:4); 
writeln; 

end; 
writeln('min:=',min); 
readln; 

end. 


2 اكتب برنامج لقراءة مصفوفة ثنائية البعد 4*5 وطباعة اصغر واكبر عنصر فيها. 
program arr(i,o);‏ 
var A1:array[1..5,1..4] of integer ;‏ 
1i,j,min,max : integer;‏ 
begin‏ 
for i := 1 to 5 do‏ 
for j:= 1 to 4 do‏ 
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begin 
read(A1[1,j]); 
end; 
min:=A1[1,1]; 
max:=A1[1,1]; 
for i := 1 to 5 do 
begin 
for j:= 1 to 4 do 
begin 
if A1[i,j]> max then 
max:=A1[i.j]; 
if A1[i,j]<min then 
min:=A1 [i,j]; 
end; 
end; 
for i := 1 to 5 do 
begin 
for j:= 1 to 4 do 
write(A1 [1,j1:4); 
writeln; 
end; 
writeln(max:=',max); 
writeln(min:=',min); 
readln; 
end. 
. 3 3.اكتب برنامج لقراءة مصفوفة ثنائية البعد 5*5 وطباعة عناصر الصف‎ 
program 21101,0(: 
var Al1:array[1..5,1..5] of integer ; 
1,j,min,max : integer; 
begin 
for i := 1 to 5 do 
for j:= 1 to 5 do 


begin 
read(A1[1,j]); 
end; 

for i := 1 to 1 do 
begin 


for j:= 1 to 5 do 
write(A1[3,j]:4); 
end; 

readln; 

end. 
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4 اكتب برنامج لقراءة مصفوفة ثنائية البعد 4*3 وطباعة عناصر العمود الثاني 
program arr(i,o);‏ 
var A1:array[1..3,1..4] of integer ;‏ 
1,j,min,max : integer;‏ 
begin‏ 
for i := 1 to 3 do‏ 
for j:= 1 to 4 do‏ 
begin‏ 
read(A1[1,j]);‏ 
end;‏ 
for i := 1 to 3 do‏ 
begin‏ 
for j:= 1 to 1 do‏ 
writeln(A1 [1,2]:4);‏ 
end;‏ 
readln;‏ 
end.‏ 


5 اكتب برنامج لقراءة مصفوفة ثنائية البعد مكونة من 9 عناصر من النوع الصحيح 3 × 3 
وطباعة القطر الرئيسي 


program arr(i,o); 

var A1:array[1..3,1..3] of integer ; 
1,j,min,max : integer; 
begin 

for i := 1 to 3 do 

for j:= 1 to 3 do 
begin 

read(A1[1,j]); 

end; 

for i := 1 to 3 do 
begin 

for j:= 1 to 3 do 

if i=j then 
writeln(A 1 [1,j]:4); 
end; 

readln; 

end. 
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6 اكتب برنامج لقراءة مصفوفة ثنائية البعد مكونة من 9 عناصر من النوع الصحيح 3 × 3 
وطباعة القطر الثانوي 


program arr(i,o); 

var A1:array[1..3,1..3] of integer ; 
1,j,min,max : integer; 
begin 

for i := 1 to 3 do 

for j:= 1 to 3 do 
begin 

read(A1[1,j]); 

end; 

for i := 1 to 3 do 
write(A1 [i,3-1+1]:4); 
readln; 

end. 


7 كتب برنامج لقراءة مصفوفة تنائية البعد 5*5 وطباعة اكبر عنصر في الصف 3 


program arr(i,o); 

var A1:array[1..5,1..5] of integer ; 
1,j,min,max : integer; 
begin 

for i := 1 to 5 do 

for j:= 1 to 5 do 
begin 

readIn(A 1 [1,j]); 

end; 

max:=a1[3,1]; 
for i := 1 to 1 do 
begin 

for j:= 2 to 5 do 

if a1[3,j]> max then 
max:=a1[3,j]; 
write(max:4); 

end; 

readln; 

end. 


كتاب يحتوي على أمثلة محلولة في البرمجة بلغة الباسكال مُعد الكتاب : سالم الدروقي 


8 اكتب برنامج لقراءة مصفوفة ثنائية البعد مكونة من 3 صفوف و 3 اعمدة 3*3 وطباعة 


program arrûi,o); 
var A1:array[1..3,1..3] of integer ; 
i,j,min : integer; 
begin 

for i := 1 to 3 do 
for j:= 1 to 3 do 
begin 

readln(A 1 [i,j]); 
end; 

min:=a1[1,2]; 
for i := 1 to 3 do 
begin 

for j:= 1 to 1 do 

if a1[1,2]<min then 
min:=a1 [1,2]; 

end; 

write(min:4); 
readln; 

end. 


9 اكتب برنامج لقراءة مصفوفة ثنائية البعد 3 وطباعة مجموع عناصر الصف 3 . 


program arr(i,o); 

var A1:array[1..3,1..3] of integer ; 
1,j,sum : integer; 

begin 

for i := 1 to 3 do 

for j:= 1 to 3 do 


begin 
readIn(A1[1,j]); 
end; 

sum:=0; 
for i := 1 to 1 do 
begin 


for j:= 1 to 3 do 
sum:=sum+A1[3,j]; 
end; 

write(sum:4); 
readln; 

end. 
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0 اكتب برنامج لقراءة مصفوفة ثنائية البعد 3*3 وطباعة مجموع عناصر الصف 3 و 
العمود 3. 


program 211)1,0(: 

var A1:array[1..3,1..3] of integer ; 
1,j,sum,sum2 : integer; 

begin 

for i := 1 to 3 do 

for j:= 1 to 3 do 


begin 
readln(A 1 [1,j]); 
end; 

sum:=Û0; 
for i := 1 to 1 do 
begin 


for j:= 1 to 3 do 
sum:=sum+A 1 [3,j]; 


end; 

sum2:=0; 

for i:= 1 to 3 do 
begin 


for j:= 1 to 1 do 
sum2:=sum2+A1 [1,3]; 
end; 

writeln(sum:4); 

writeln(sum2 :4 ); 

readln; 

end. 


1 اكتب برنامج لقراءة مصفوفة ثنائية البعد 5 وطباعة الفرق بين اصغر واكبر عنصر 


program 31101,0(: 

var A1:array[1..5,1..5] of integer ; 
1,j,min,max : integer; 

begin 

for i := 1 to 5 do 

for j:= 1 to 5 do 
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begin 
read(A1[1,j]); 
end; 
min:=A1[1,1]; 
max:=A1[1,1]; 
for i := 1 to 5 do 
begin 
for j:= 1 to 5 do 
begin 

if A1[i,j]> max then 

max:=A1[1,j]; 


if A1[i,j]<min then 
min:=A1 [i,j]; 
end; 
end; 
for i := 1 to 5 do 
begin 


for j:= 1 to 5 do 
write(A1 [1,j]:4); 
writeln; 

end; 
writeln(max=',max); 
writeln('min=',min); 
writeln('dif=',max-min); 
readln; 


2. اكتب برنامج لقراءة مصفوفة ثنائية البعد 5 وطباعة اكبر واصغر قيمة في الصف 
الرابع و الفرق بينهما. 


program arr(i,o); 

var A1:array[1..5,1..5] of integer ; 
1,j,min,max : integer; 
begin 

for i := 1 to 5 do 

for j:= 1 to 5 do 
begin 

read(A1[1,j]); 

end; 

min:=A1[4,1]; 
max:=A1[4,1]; 
for i := 1 to 1 do 


كتاب يحتوي على أمثلة محلولة في البرمجة بلغة الباسكال 


معد الكتاب : سالم الدروقي 


begin 
for j:= 1 to 5 do 
begin 
if A1[4,j]> max then 
max:=A1[4,j]; 


if A1[4,j]<min then 
min:=A1[4,j]; 
end; 

end; 

for i := 1 to 5 do 

begin 


for j:= 1 to 5 do 
write(A 1 [1,j]:4); 
writeln; 

end; 
writeln(max=',max); 
writeln('min=',min); 
writeln('dif=',max-min); 
readln; 

end. 


كتاب يحتوي على أمثلة محلولة في البرمجة بلغة الباسكال مُعد الكتاب : سالم الدروقي 


الخاتمة 
أثناء إعداد هذا الكتاب حاولت قدر الإمكان اختبار كافة البرامج وذلك بتنفيذها علي 
المترجم الخاص بلغة الباسكال 7.0 035631 طن وإدخال بيانات فعلية علي كافة البرامج 
للتأكد من عملها بالشكل الصحيح , ولان هذا العمل من فعل بني البشر فهو قابل للنقد 
والتعديل والتصحيح ... 


وما توفيقي إلا بالله 9-5 


أرحب بملاحظاتكم واستفساراتكم وتعليقاتكم علي البريد الالكتروني 
Salemaldrugi@yahoo.com‏ 


معد الكتاب :ا الررزقق 


